10 POKE251,PEEK(52)
20 POKE52,PEEK(44)+4:POKE56,PEEK(52):CLR
30 PRINT"[147]RUN THIS PROGRAM TO"
40 PRINT"COPY A PROGRAM OR"
50 PRINT"SEQUENTIAL FILE FROM"
60 PRINT"ONE DISK (THE SOURCE"
70 PRINT"DISK) TO ANOTHER (THE"
80 PRINT"DESTINATION DISK)."
90 PRINT"INSERT SOURCE DISK."
100 M=256*PEEK(52)
110 OPEN15,8,15
120 PRINT"WHAT IS THE NAME OF"
130 PRINT"THE FILE OR PROGRAM":INPUTF$
140 T$="P":PRINT"WHAT IS THE FILE TYPE"
150 PRINT"(P FOR PROGRAM, S FOR"
160 PRINT"FILE)"
170 INPUTT$
180 OPEN2,8,2,F$+","+T$+",R"
190 INPUT#15,E,E$,X,X:IFE<>0THENPRINTE$:CLOSE2:GOTO120
200 GET#2,A$:IFA$=""THENA$=CHR$(0)
210 POKEM+J,ASC(A$):J=J+1:IFST=0THEN200
220 CLOSE2
230 PRINT"INSERT DESTINATION"
240 PRINT"DISK AND PRESS RETURN"
250 PRINT"TO COPY."
260 GETC$:IFC$<>CHR$(13)THEN260
270 PRINT"PRESS RETURN[146] IF YOU"
280 PRINT"WANT TO KEEP THE NAME"
290 PRINTF$
300 INPUT"FILE NAME ";F$
310 OPEN2,8,2,F$+","+T$+",W"
320 INPUT#15,E,E$,X,X:IFE<>0THENPRINTE$:CLOSE2:GOTO300
330 FORK=0TOJ-1:PRINT#2,CHR$(PEEK(M+K));:NEXT
340 CLOSE2:CLOSE15
350 POKE52,PEEK(251):POKE56,PEEK(251):CLR